BBS in a Box 9

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Prog / S / Spool.cpt / Spool.p next >
MacBinary | 1989-05-16 | 2.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Spool.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue May 16 12:17:35 1989, modified Tue May 16 12:17:35 1989, creator 'MPS ', type ASCII, 2047 bytes "Spool.p" , at 0x87f 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 53 70 6f 6f 6c 2e | 70 00 00 00 00 00 00 00 |..Spool.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 07 ff 00 | 00 01 7e a0 95 fa 1f a0 |........|..~.....|
|00000060| 95 fa 1f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e3 18 00 00 |........|........|
|00000080| 7b 5b 6e 2b 2c 75 2b 2c | 72 2b 2c 64 2b 2c 23 2b |{[n+,u+,|r+,d+,#+|
|00000090| 5d 7d 20 7b 50 61 73 4d | 61 74 20 6a 75 6e 6b 7d |]} {PasM|at junk}|
|000000a0| 0d 0d 7b 0d 09 09 54 68 | 69 73 20 63 6f 64 65 20 |..{...Th|is code |
|000000b0| 63 6f 6d 70 69 6c 65 73 | 20 69 6e 20 4d 50 57 20 |compiles| in MPW |
|000000c0| 6f 72 20 54 75 72 62 6f | 0d 7d 0d 0d 50 52 4f 47 |or Turbo|.}..PROG|
|000000d0| 52 41 4d 20 53 70 6f 6f | 6c 3b 0d 20 7b 24 52 20 |RAM Spoo|l;. {$R |
|000000e0| 53 70 6f 6f 6c 2e 72 73 | 72 63 7d 0d 0d 20 20 55 |Spool.rs|rc}..  U|
|000000f0| 53 45 53 20 4d 65 6d 54 | 79 70 65 73 2c 20 51 75 |SES MemT|ypes, Qu|
|00000100| 69 63 6b 64 72 61 77 2c | 20 4f 53 49 6e 74 66 2c |ickdraw,| OSIntf,|
|00000110| 20 54 6f 6f 6c 49 6e 74 | 66 2c 20 50 61 63 6b 49 | ToolInt|f, PackI|
|00000120| 6e 74 66 3b 0d 0d 20 20 | 50 52 4f 43 45 44 55 52 |ntf;..  |PROCEDUR|
|00000130| 45 20 5f 44 61 74 61 49 | 6e 69 74 3b 0d 20 20 20 |E _DataI|nit;.   |
|00000140| 20 45 58 54 45 52 4e 41 | 4c 3b 0d 0d 20 20 56 41 | EXTERNA|L;..  VA|
|00000150| 52 0d 20 20 20 20 67 6c | 6f 62 61 6c 52 65 66 3a |R.    gl|obalRef:|
|00000160| 20 49 4e 54 45 47 45 52 | 3b 0d 20 20 20 20 6d 79 | INTEGER|;.    my|
|00000170| 57 69 6e 64 6f 77 3a 20 | 57 69 6e 64 6f 77 50 74 |Window: |WindowPt|
|00000180| 72 3b 0d 0d 20 20 50 52 | 4f 43 45 44 55 52 45 20 |r;..  PR|OCEDURE |
|00000190| 47 65 74 50 49 43 54 44 | 61 74 61 28 64 61 74 61 |GetPICTD|ata(data|
|000001a0| 50 74 72 3a 20 50 74 72 | 3b 20 62 79 74 65 43 6f |Ptr: Ptr|; byteCo|
|000001b0| 75 6e 74 3a 20 49 4e 54 | 45 47 45 52 29 3b 0d 0d |unt: INT|EGER);..|
|000001c0| 20 20 20 20 56 41 52 0d | 20 20 20 20 20 20 65 72 |    VAR.|      er|
|000001d0| 72 3a 20 49 4e 54 45 47 | 45 52 3b 0d 20 20 20 20 |r: INTEG|ER;.    |
|000001e0| 20 20 6c 6f 6e 67 43 6f | 75 6e 74 3a 20 4c 4f 4e |  longCo|unt: LON|
|000001f0| 47 49 4e 54 3b 0d 0d 20 | 20 20 20 42 45 47 49 4e |GINT;.. |   BEGIN|
|00000200| 0d 20 20 20 20 20 20 6c | 6f 6e 67 43 6f 75 6e 74 |.      l|ongCount|
|00000210| 20 3a 3d 20 62 79 74 65 | 43 6f 75 6e 74 3b 0d 20 | := byte|Count;. |
|00000220| 20 20 20 20 20 65 72 72 | 20 3a 3d 20 46 53 52 65 |     err| := FSRe|
|00000230| 61 64 28 67 6c 6f 62 61 | 6c 52 65 66 2c 20 6c 6f |ad(globa|lRef, lo|
|00000240| 6e 67 43 6f 75 6e 74 2c | 20 64 61 74 61 50 74 72 |ngCount,| dataPtr|
|00000250| 29 3b 0d 20 20 20 20 45 | 4e 44 3b 0d 0d 20 20 50 |);.    E|ND;..  P|
|00000260| 52 4f 43 45 44 55 52 45 | 20 47 65 74 61 6e 64 44 |ROCEDURE| GetandD|
|00000270| 72 61 77 50 49 43 54 46 | 69 6c 65 3b 0d 0d 20 20 |rawPICTF|ile;..  |
|00000280| 20 20 56 41 52 0d 20 20 | 20 20 20 20 77 68 65 72 |  VAR.  |    wher|
|00000290| 3a 20 50 6f 69 6e 74 3b | 0d 20 20 20 20 20 20 72 |: Point;|.      r|
|000002a0| 65 70 6c 79 3a 20 53 46 | 52 65 70 6c 79 3b 0d 20 |eply: SF|Reply;. |
|000002b0| 20 20 20 20 20 6d 79 46 | 69 6c 65 54 79 70 65 73 |     myF|ileTypes|
|000002c0| 3a 20 53 46 54 79 70 65 | 4c 69 73 74 3b 0d 20 20 |: SFType|List;.  |
|000002d0| 20 20 20 20 4e 75 6d 46 | 69 6c 65 54 79 70 65 73 |    NumF|ileTypes|
|000002e0| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 20 20 20 20 20 |: INTEGE|R;.     |
|000002f0| 20 65 72 72 3a 20 4f 53 | 45 72 72 3b 0d 20 20 20 | err: OS|Err;.   |
|00000300| 20 20 20 6d 79 50 72 6f | 63 73 3a 20 51 44 50 72 |   myPro|cs: QDPr|
|00000310| 6f 63 73 3b 0d 20 20 20 | 20 20 20 50 49 43 54 48 |ocs;.   |   PICTH|
|00000320| 61 6e 64 3a 20 50 69 63 | 48 61 6e 64 6c 65 3b 0d |and: Pic|Handle;.|
|00000330| 20 20 20 20 20 20 6c 6f | 6e 67 43 6f 75 6e 74 3a |      lo|ngCount:|
|00000340| 20 4c 4f 4e 47 49 4e 54 | 3b 0d 7b 09 0d 09 46 6f | LONGINT|;.{...Fo|
|00000350| 72 20 74 6f 74 61 6c 6c | 79 20 6d 79 73 74 65 72 |r totall|y myster|
|00000360| 69 6f 75 73 20 72 65 61 | 73 6f 6e 73 20 74 68 65 |ious rea|sons the|
|00000370| 20 63 6f 64 65 20 69 6e | 20 49 4d 2d 56 20 68 61 | code in| IM-V ha|
|00000380| 73 3a 0d 09 09 09 6d 79 | 50 42 3a 09 50 61 72 61 |s:....my|PB:.Para|
|00000390| 6d 42 6c 6f 63 6b 52 65 | 63 3b 0d 09 49 20 6c 65 |mBlockRe|c;..I le|
|000003a0| 66 74 20 69 74 20 6f 75 | 74 20 73 69 6e 63 20 69 |ft it ou|t sinc i|
|000003b0| 74 20 6f 6e 6c 79 20 77 | 61 73 74 65 73 20 73 74 |t only w|astes st|
|000003c0| 61 63 6b 20 73 70 61 63 | 65 2e 0d 7d 0d 0d 20 20 |ack spac|e..}..  |
|000003d0| 20 20 42 45 47 49 4e 0d | 20 20 20 20 20 20 77 68 |  BEGIN.|      wh|
|000003e0| 65 72 2e 68 20 3a 3d 20 | 32 30 3b 0d 20 20 20 20 |er.h := |20;.    |
|000003f0| 20 20 77 68 65 72 2e 76 | 20 3a 3d 20 32 30 3b 0d |  wher.v| := 20;.|
|00000400| 20 20 20 20 20 20 4e 75 | 6d 46 69 6c 65 54 79 70 |      Nu|mFileTyp|
|00000410| 65 73 20 3a 3d 20 31 3b | 0d 20 20 20 20 20 20 6d |es := 1;|.      m|
|00000420| 79 46 69 6c 65 54 79 70 | 65 73 5b 30 5d 20 3a 3d |yFileTyp|es[0] :=|
|00000430| 20 27 50 49 43 54 27 3b | 0d 20 20 20 20 20 20 53 | 'PICT';|.      S|
|00000440| 46 47 65 74 46 69 6c 65 | 28 77 68 65 72 2c 20 27 |FGetFile|(wher, '|
|00000450| 27 2c 20 4e 49 4c 2c 20 | 4e 75 6d 46 69 6c 65 54 |', NIL, |NumFileT|
|00000460| 79 70 65 73 2c 20 6d 79 | 46 69 6c 65 54 79 70 65 |ypes, my|FileType|
|00000470| 73 2c 20 4e 49 4c 2c 20 | 72 65 70 6c 79 29 3b 0d |s, NIL, |reply);.|
|00000480| 20 20 20 20 20 20 49 46 | 20 72 65 70 6c 79 2e 67 |      IF| reply.g|
|00000490| 6f 6f 64 20 54 48 45 4e | 0d 20 20 20 20 20 20 20 |ood THEN|.       |
|000004a0| 20 42 45 47 49 4e 0d 20 | 20 20 20 20 20 20 20 65 | BEGIN. |       e|
|000004b0| 72 72 20 3a 3d 20 46 53 | 4f 70 65 6e 28 72 65 70 |rr := FS|Open(rep|
|000004c0| 6c 79 2e 66 6e 61 6d 65 | 2c 20 72 65 70 6c 79 2e |ly.fname|, reply.|
|000004d0| 76 72 65 66 6e 75 6d 2c | 20 67 6c 6f 62 61 6c 52 |vrefnum,| globalR|
|000004e0| 65 66 29 3b 0d 20 20 20 | 20 20 20 20 20 53 65 74 |ef);.   |     Set|
|000004f0| 53 74 64 50 72 6f 63 73 | 28 6d 79 50 72 6f 63 73 |StdProcs|(myProcs|
|00000500| 29 3b 0d 20 20 20 20 20 | 20 20 20 6d 79 57 69 6e |);.     |   myWin|
|00000510| 64 6f 77 5e 2e 67 72 61 | 66 50 72 6f 63 73 20 3a |dow^.gra|fProcs :|
|00000520| 3d 20 40 6d 79 50 72 6f | 63 73 3b 0d 20 20 20 20 |= @myPro|cs;.    |
|00000530| 20 20 20 20 6d 79 50 72 | 6f 63 73 2e 67 65 74 50 |    myPr|ocs.getP|
|00000540| 69 63 50 72 6f 63 20 3a | 3d 20 40 47 65 74 50 49 |icProc :|= @GetPI|
|00000550| 43 54 44 61 74 61 3b 0d | 20 20 20 20 20 20 20 20 |CTData;.|        |
|00000560| 50 49 43 54 48 61 6e 64 | 20 3a 3d 20 50 69 63 48 |PICTHand| := PicH|
|00000570| 61 6e 64 6c 65 28 4e 65 | 77 48 61 6e 64 6c 65 28 |andle(Ne|wHandle(|
|00000580| 53 69 7a 65 4f 66 28 50 | 69 63 74 75 72 65 29 29 |SizeOf(P|icture))|
|00000590| 29 3b 0d 20 20 20 20 20 | 20 20 20 65 72 72 20 3a |);.     |   err :|
|000005a0| 3d 20 53 65 74 46 50 6f | 73 28 67 6c 6f 62 61 6c |= SetFPo|s(global|
|000005b0| 52 65 66 2c 20 66 73 46 | 72 6f 6d 53 74 61 72 74 |Ref, fsF|romStart|
|000005c0| 2c 20 35 31 32 29 3b 0d | 20 20 20 20 20 20 20 20 |, 512);.|        |
|000005d0| 6c 6f 6e 67 43 6f 75 6e | 74 20 3a 3d 20 53 69 7a |longCoun|t := Siz|
|000005e0| 65 4f 66 28 50 69 63 74 | 75 72 65 29 3b 0d 20 20 |eOf(Pict|ure);.  |
|000005f0| 20 20 20 20 20 20 65 72 | 72 20 3a 3d 20 46 53 52 |      er|r := FSR|
|00000600| 65 61 64 28 67 6c 6f 62 | 61 6c 52 65 66 2c 20 6c |ead(glob|alRef, l|
|00000610| 6f 6e 67 43 6f 75 6e 74 | 2c 20 50 74 72 28 50 49 |ongCount|, Ptr(PI|
|00000620| 43 54 48 61 6e 64 5e 29 | 29 3b 0d 20 20 20 20 20 |CTHand^)|);.     |
|00000630| 20 20 20 44 72 61 77 50 | 69 63 74 75 72 65 28 50 |   DrawP|icture(P|
|00000640| 49 43 54 48 61 6e 64 2c | 20 50 49 43 54 48 61 6e |ICTHand,| PICTHan|
|00000650| 64 5e 5e 2e 70 69 63 46 | 72 61 6d 65 29 3b 0d 20 |d^^.picF|rame);. |
|00000660| 20 20 20 20 20 20 20 65 | 72 72 20 3a 3d 20 46 53 |       e|rr := FS|
|00000670| 43 6c 6f 73 65 28 67 6c | 6f 62 61 6c 52 65 66 29 |Close(gl|obalRef)|
|00000680| 3b 0d 20 20 20 20 20 20 | 20 20 6d 79 57 69 6e 64 |;.      |  myWind|
|00000690| 6f 77 5e 2e 67 72 61 66 | 50 72 6f 63 73 20 3a 3d |ow^.graf|Procs :=|
|000006a0| 20 4e 49 4c 3b 0d 20 20 | 20 20 20 20 20 20 44 69 | NIL;.  |      Di|
|000006b0| 73 70 6f 73 48 61 6e 64 | 6c 65 28 48 61 6e 64 6c |sposHand|le(Handl|
|000006c0| 65 28 50 49 43 54 48 61 | 6e 64 29 29 3b 0d 20 20 |e(PICTHa|nd));.  |
|000006d0| 20 20 20 20 20 20 45 4e | 44 3b 0d 20 20 20 20 45 |      EN|D;.    E|
|000006e0| 4e 44 3b 0d 0d 20 20 50 | 52 4f 43 45 44 55 52 45 |ND;..  P|ROCEDURE|
|000006f0| 20 49 6e 69 74 69 61 6c | 69 7a 65 3b 0d 0d 20 20 | Initial|ize;..  |
|00000700| 20 20 42 45 47 49 4e 0d | 20 20 20 20 20 20 55 6e |  BEGIN.|      Un|
|00000710| 4c 6f 61 64 53 65 67 28 | 40 5f 44 61 74 61 49 6e |LoadSeg(|@_DataIn|
|00000720| 69 74 29 3b 0d 20 20 20 | 20 20 20 49 6e 69 74 47 |it);.   |   InitG|
|00000730| 72 61 66 28 40 74 68 65 | 50 6f 72 74 29 3b 0d 20 |raf(@the|Port);. |
|00000740| 20 20 20 20 20 49 6e 69 | 74 46 6f 6e 74 73 3b 0d |     Ini|tFonts;.|
|00000750| 20 20 20 20 20 20 46 6c | 75 73 68 45 76 65 6e 74 |      Fl|ushEvent|
|00000760| 73 28 65 76 65 72 79 45 | 76 65 6e 74 2c 20 30 29 |s(everyE|vent, 0)|
|00000770| 3b 0d 20 20 20 20 20 20 | 49 6e 69 74 57 69 6e 64 |;.      |InitWind|
|00000780| 6f 77 73 3b 0d 20 20 20 | 20 20 20 49 6e 69 74 4d |ows;.   |   InitM|
|00000790| 65 6e 75 73 3b 0d 20 20 | 20 20 20 20 54 45 49 6e |enus;.  |    TEIn|
|000007a0| 69 74 3b 0d 20 20 20 20 | 20 20 49 6e 69 74 44 69 |it;.    |  InitDi|
|000007b0| 61 6c 6f 67 73 28 4e 49 | 4c 29 3b 0d 20 20 20 20 |alogs(NI|L);.    |
|000007c0| 20 20 49 6e 69 74 43 75 | 72 73 6f 72 3b 0d 20 20 |  InitCu|rsor;.  |
|000007d0| 20 20 20 20 6d 79 57 69 | 6e 64 6f 77 20 3a 3d 20 |    myWi|ndow := |
|000007e0| 47 65 74 4e 65 77 57 69 | 6e 64 6f 77 28 31 30 30 |GetNewWi|ndow(100|
|000007f0| 30 2c 20 4e 49 4c 2c 20 | 57 69 6e 64 6f 77 50 74 |0, NIL, |WindowPt|
|00000800| 72 28 20 2d 31 29 29 3b | 0d 20 20 20 20 20 20 53 |r( -1));|.      S|
|00000810| 65 74 50 6f 72 74 28 6d | 79 57 69 6e 64 6f 77 29 |etPort(m|yWindow)|
|00000820| 0d 20 20 20 20 45 4e 44 | 3b 0d 0d 20 20 42 45 47 |.    END|;..  BEG|
|00000830| 49 4e 0d 20 20 20 20 49 | 6e 69 74 69 61 6c 69 7a |IN.    I|nitializ|
|00000840| 65 3b 0d 20 20 20 20 47 | 65 74 61 6e 64 44 72 61 |e;.    G|etandDra|
|00000850| 77 50 49 43 54 46 69 6c | 65 3b 0d 20 20 20 20 52 |wPICTFil|e;.    R|
|00000860| 45 50 45 41 54 0d 20 20 | 20 20 55 4e 54 49 4c 20 |EPEAT.  |  UNTIL |
|00000870| 42 75 74 74 6f 6e 3b 0d | 20 20 45 4e 44 2e 0d 00 |Button;.|  END...|
|00000880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000890| f0 41 36 3f 3c 00 01 a9 | f0 42 44 3f 3c 00 01 a9 |.A6?<...|.BD?<...|
|000008a0| f0 42 80 3f 3c 00 01 a9 | f0 42 bc 3f 3c 00 01 a9 |.B.?<...|.B.?<...|
|000008b0| 07 53 70 6f 6f 6c 2e 70 | 02 00 00 00 54 45 58 54 |.Spool.p|....TEXT|
|000008c0| 4d 50 53 20 00 01 01 3b | 03 37 00 00 00 00 cc 75 |MPS ...;|.7.....u|
|000008d0| 00 00 54 45 58 54 4d 50 | 53 20 00 01 01 3b 03 37 |..TEXTMP|S ...;.7|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 02 a0 94 0f 74 00 00 | 07 ff 00 00 01 7e 01 a9 |.....t..|.....~..|
|00000900| f0 4a 92 3f 3c 00 01 a9 | f0 4a b0 3f 3c 00 01 a9 |.J.?<...|.J.?<...|
|00000910| f0 4b 04 3f 3c 00 01 a9 | f0 4b 22 3f 3c 00 01 a9 |.K.?<...|.K"?<...|
|00000920| f0 4b 4a 3f 3c 00 01 a9 | f0 4b 5e 3f 3c 00 01 a9 |.KJ?<...|.K^?<...|
|00000930| f0 4b 72 3f 3c 00 01 a9 | f0 4b 86 3f 3c 00 01 a9 |.Kr?<...|.K.?<...|
|00000940| f0 4b b2 3f 3c 00 01 a9 | f0 4b ca 3f 3c 00 01 a9 |.K.?<...|.K.?<...|
|00000950| f0 4b de 3f 3c 00 01 a9 | f0 4b f8 3f 3c 00 01 a9 |.K.?<...|.K.?<...|
|00000960| f0 4c 18 3f 3c 00 01 a9 | f0 4c 30 3f 3c 00 01 a9 |.L.?<...|.L0?<...|
|00000970| f0 4c 44 3f 3c 00 01 a9 | f0 4c 58 3f 3c 00 01 a9 |.LD?<...|.LX?<...|
|00000980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 06 | 00 02 00 2a 00 03 01 dd |........|...*....|
|000009b0| 02 7d 00 50 00 20 01 dd | 02 7d a0 95 b3 cf 00 00 |.}.P. ..|.}......|
|000009c0| 03 4d 00 00 03 4d 00 00 | 06 02 01 00 00 00 01 00 |.M...M..|........|
|000009d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 03 3d 78 |...L...L|...2..=x|
|000009e0| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|000009f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 04 76 28 00 00 |........|....v(..|
+--------+-------------------------+-------------------------+--------+--------+